2 POKE56325,5 :IN=49564:DE=49575:IFFL=99THEN420 3 GOSUB9000:IFFL=0THENFL=1:GOSUB50:GOSUB50000:LOAD"H",8,1 4 IFFL=1THENFL=2:POKE820,1:LOAD"S",8,1 5 IFFL=2THENFL=3:LOAD"H1",8,1 6 IFFL=3THENFL=4:LOAD"H2",8,1 7 IFFL=4THENFL=10:LOAD"C",8,1 8 IFSD=0THENSD=1:GOSUB10000 22 IFFL=10THENFL=11:Q$=".V1":GOTO35000 25 IFFL=11THENFL=12:Q$=".V2":GOTO35010 26 IFFL=12THENFL=13:Q$=".V3":GOTO35010 27 : 30 KH=128:GOTO90 50 A=13*4096+4*256 55 FORI=A+24TOASTEP-1:POKEI,0:NEXT:POKEA+23,8:POKEA+3,3:POKEA+10,13:POKEA+17,3 80 POKEA+24,15:POKEA+23,8:RETURN 90 POKE56325,TM(SS) 91 RESTORE:FORI=0TOSS*9:READL1:NEXT:GOSUB62000 97 TR=7630:POKETR,0:POKETR+1,0:POKE65333,127 99 IFPEEK(821)=66THENFORI=0TO5000:NEXT:POKE53265,PEEK(53265)AND239 100 SYS(12*4096):POKE56333,129 400 IFPEEK(788)<>49THEN400 415 POKE53265,PEEK(53265)OR16:SYSDE 420 I=PEEK(820):ONIGOTO425,430,450,460,470,480,490,500,510,520,530,540,550 425 FL=99:POKE820,2 430 REM 435 : 440 SD=2:GOSUB10000:FL=10:POKE820,3:GOTO22 450 FL=99:SD=1:GOSUB10000:POKE820,4:LOAD"P1",8,1 460 PRINT"[147]":POKE53270,8:SYSIN:FL=99:POKE820,5:POKE53280,0:LOAD"X",8,1 470 POKE820,6:FL=10:GOTO22 480 GOTO63500 520 : 521 : 530 : 533 : 540 : 550 : 1000 PRINT"[147][144]":POKE53280,1:POKE53281,8 1010 P=12*4096+256:IN=P+156:CL=P+101:DE=P+167 1012 AR=P+128:CA=P+137:BR=P+217:CB=P+226 1100 POKECB,3:SYSBR:POKECA,11*16+4:SYSAR:POKE53265,43 1200 SYSIN:SYS7680+KH:SYSDE:PRINT"[147]":RETURN 2000 PRINT"[147][144]":POKE53280,1:POKE53281,8:KH=0 2010 P=12*4096+256:IN=P+156:CL=P+101:DE=P+167:AR=P+128:CA=P+137:BR=P+217:CB=P+226 2110 POKECA,0:SYSAR:SYSCL:POKE7757,228:POKECB,0:SYSBR:POKE53280,0:GOTO1200 9000 SS$(0)="F0":TM(0)=60:SS$(5)="I8":TM(5)=33:SS$(2)="E0":TM(2)=23 9022 SS$(6)="B0":TM(6)=23:SS$(4)="T0":TM(4)=32:SS$(1)="I4":TM(1)=37 9028 SS$(3)="J0":TM(3)=23:RETURN 10000 POKE53281,1:POKE53280,1:POKE53272,23:POKE53265,27 10010 ONSDGOSUB10100,10200,10300,10400,10500:RETURN 10100 PRINT"[147] [205]USI[195]ALC[145]TM" 10102 PRINT"[205]AKES [205]USIC [208]LAY ON YOUR [195]OMMODORE 64[145]TM" 10104 PRINT"[205]USI[195]ALC INCLUDES BOTH COMPUTER PROGRAMS"; 10106 PRINT"AND OPTIONAL EQUIPMENT FOR YOUR MUSICAL" 10108 PRINT"ENJOYMENT." 10109 PRINT"[205]USI[195]ALC 1: [211]YNTHESIZER & [211]EQUENCER" 10110 PRINT"IS THE HEART OF THE SYSTEM. [212]HIS TURNS" 10112 PRINT"YOUR COMPUTER INTO A MUSICAL INSTRUMENT."; 10114 PRINT"[208]LAY ALONG WITH A SONG OR WRITE YOUR" 10116 PRINT"OWN. [196]EVELOP YOUR OWN INSTRUMENT SOUNDS"; 10118 PRINT"AND RECORD THE MUSIC YOU CREATE." 10172 GOSUB 11000:RETURN 10200 PRINT"[147] [205]USI[195]ALC[145]TM" 10202 PRINT" [205]AKES [205]USIC [208]LAY" 10204 PRINT"[215]ELCOME TO AN ENTIRELY NEW WAY TO MAKE" 10206 PRINT"MUSIC. [205]USI[195]ALC, THE [195]REATIVE [205]USIC" 10208 PRINT"[211]YSTEM, PUTS EXCITING NEW MUSICAL" 10210 PRINT"EXPERIENCES AT EVERYONE'S FINGERTIPS." 10212 PRINT"[215]HILE EASY TO LEARN AND ENJOY, [205]USI[195]ALC" 10214 PRINT"HAS BEEN DESIGNED TO MEET THE NEEDS OF" 10216 PRINT"THE PROFESSIONAL MUSICIAN. [206]O MATTER" 10218 PRINT"WHAT YOUR LEVEL OF MUSICAL EXPERTISE," 10220 PRINT"NOVICE OR EXPERT, [205]USI[195]ALC WILL MAKE" 10222 PRINT"MUSIC COME ALIVE FOR YOU. 10240 [141] 11000:[142] 10300 [153]"LOAD (null)USILENALCONTM" 10302 [153]" (null)AKES (null)USIC (null)LAY" 10304 [153]"(null)USILENALC IS THE IDEAL SYSTEM FOR" 10306 [153]"PLAYING, COMPOSING, AND EXPERIENCING" 10308 [153]"MUSIC." 10310 [153]" (null)USILENALC 2 - (null)CORE(null)RITER" 10312 [153]"(null)ORKS WITH THE (null)YNTHESIZER & (null)EQUENCER" 10314 [153]"TO CHANGE YOUR MUSICAL IMPROVISATIONS" 10316 [153]"INTO MUSICAL NOTATION. (null)ITH THE " 10318 [153]"ADDITION OF AN OPTIONAL GRAPHICS PRINTER"; 10320 [153]"YOU CAN TURN YOUR OWN ORIGINAL" 10322 [153]"COMPOSITIONS INTO SHEET MUSIC." 10340 [141] 11000:[142] 10400 [153]"LOAD (null)USILENALCONTM" 10402 [153]" (null)AKES (null)USIC (null)LAY" 10404 [153]"RIGHT$T'S A FUN AND EDUCATIONAL WAY TO" 10406 [153]"INTRODUCE YOUR CHILDREN TO MUSIC AND" 10408 [153]"COMPUTERS. RIGHT$T'S AN ABSORBING NEW" 10410 [153]"MUSICAL TOOL FOR THE PROFESSIONAL." 10412 [153]" (null)USILENALC 3 - (null)EYBOARD (null)AKER" 10414 [153]"VALNABLES YOU TO CREATE YOUR OWN CUSTOM" 10416 [153]"KEYBOARDS. LENOMES WITH OVER 30 PRESET" 10418 [153]"KEYBOARD SCALES FROM AROUND THE WORLD" 10420 [153]" - EVERYTHING FROM CLASSICAL TO ROCK." 10440 [141] 11000:[142] 10500 [153]"LOAD (null)USILENALCONTM" 10502 [153]"(null)AKES (null)USIC (null)LAY ON YOUR LENOMMODORE 64ONTM" 10504 [153]" (null)USILENALC 1 - (null)YNTHESIZER & (null)EQUENCER" 10506 [153]" (null)USILENALC 2 - (null)CORE(null)RITER" 10508 [153]" (null)USILENALC 3 - (null)EYBOARD (null)AKER" 10510 [153]" (null)USILENALC (null)EMPLATE 1" 10512 [153] " - ATNFRICAN AND (null)ATIN (null)HYTHMS" 10514 [153]" (null)USILENALC (null)EMPLATE 2" 10516 [153] " - (null)EW (null)AVE AND (null)OCK" 10520 [153]" LEFT$IT STR$ISKS" 10522 [153]" - (null)ECORDINGS TO PLAY ON YOUR COMPUTER" 10540 [141]11000:[142] 11000 [153]""; 11010 [153]" (C)1983 WAVEFORM CORPORATION" 11100 [142] 35000 SS[178]SS[170]1:[139]SS[177]6[167]SS[178]0 35002 Z$[178]SS$(SS) 35010 A$[178]Z$[170]Q$:[147] A$,8,1 35020 : 50000 [151]53280,1:[151]53281,1:[153]"LOADSTOP";:[151]53272,23 51000 [153] "LOAD (null)USILENALCONTM" 51010 [153]" (null)USIC STR$EMONSTRATION" 51020 [153] " (C)1983 WAVEFORM CORPORATION":[142] 60000 [151]53265,0:[151]53270,[194](53270)[175]239:[158]IN:[129]I[178]0[164]11000:[130]:[142] 62000 A[178]54272:[135]L1,L2,L3,L4,L5,L6:[151]A[170]5,L1:[151]A[170]6,L2:[151]A[170]12,L3:[151]A[170]13,L4 62010 [151]A[170]19,L5:[151]A[170]20,L6 62020 [135]L1,L2,L3:[151]51502,L1[170]1:[151]51503,L1:[151]51509,L2[170]1:[151]51510,L2 62030 [151]51516,L3[170]1:[151]51517,L3:[142] 63000 [131]0,42,222,42,222,42,222,32,32,32,56,206,56,206,250,0,64,64,0,46,237,44 63002 [131]174,44,174,32,32,32,42,207,42,207,42,207,32,32,32,20,89,57,176,57,176 63004 [131]64,16,16,56,206,56,206,250,0,64,32,0,41,255,40,125,40,125,16,32,64 63500 [153]"LOADWOULD YOU LIKE TO HEAR IT AGAIN?" 63502 [151]198,0:[146]198,1:[161]K$:[139]K$[179][177]"Y"[175]K$[179][177]"N"[167][151]53280,[187](1)[172]15:[137]6 63503 [139]K$[178]"N"[167]63510 63504 FL[178]10:[151]820,1:SS[178]0:[141]50000:[137]22 63506 : 63510 [143] CONNECT BACK 63512 [151]56325,60 63520 [153]"LOADLOAD"[199](34)"HELLO"[199](34)",8":[153]"RUN" 63522 [151]631,13:[151]632,13:[151]198,2:[128]